home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 August / Macworld (1999-08).dmg / Serious Software / Geo3D 1.4.3 / Sample Scripts / Groups < prev    next >
Text File  |  1999-03-23  |  452b  |  18 lines
  1. tell application "Geo3D"
  2.     activate
  3.     make new document
  4.     set x to import groups from file ":Sample Scripts:Demo.grp"
  5.     if x > 0 then -- 0: error; x includes menu separators!
  6.         full screen
  7.         repeat with x from 1 to x
  8.             show group x -- without multi (default)
  9.         end repeat
  10.         show -- show all
  11.         show with multi -- hide all
  12.         repeat with x from 1 to 4
  13.             show group x with multi
  14.         end repeat
  15.         show group 3 with multi -- hide group 3
  16.         stack
  17.     end if
  18. end tell